home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos2.d64 / clock v1.3.SCR (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  84 lines
  1. 10 REM GEOS VORSPANN GROSSES DATA BECKER GEOS BUCH
  2. 12 OPEN1,8,15,"I:0"
  3. 14 RESTORE:PRINTCHR$(147)
  4. 18 FORI=1TO539
  5. 20 READ A:S=S+A
  6. 22 PRINTCHR$(19);539-I;CHR$(157);" ";
  7. 24 NEXT:RESTORE
  8. 26 IFS<>57427THENPRINT"FEHLER IN DEN DATAS !":STOP
  9. 30 F$="CLOCK  V1.3"
  10. 32 OPEN2,8,2,F$+",U,W":GOSUB112
  11. 34 FORI=1TO426:READA
  12. 36 PRINT#2,CHR$(A);:NEXT:GOSUB112
  13. 38 CLOSE2
  14. 42 A=1:B=0
  15. 44 T=A:S=B:PRINT#1,"B-A:0";T;S
  16. 46 INPUT#1,N,T$,A,B:IFA=18THENA=19:B=0
  17. 48 IFN>0THEN44
  18. 50 OPEN3,8,3,"#0":PRINT#3
  19. 52 PRINT#1,"U1";3;0;T;S
  20. 54 FORI=1TO113:READB:PRINT#3,CHR$(B);:NEXT
  21. 56 FORI=1TO141
  22. 58 PRINT#1,CHR$(0);
  23. 60 NEXT
  24. 62 PRINT#1,"U2";3;0;T;S
  25. 68 PRINT#3
  26. 70 A$=CHR$(18):B$=CHR$(1)
  27. 72 A=ASC(A$):B=ASC(B$):PRINT#1,"U1";3;0;A;B
  28. 74 GET#3,A$,B$
  29. 76 FORI=0TO7
  30. 78 PRINT#1,"B-P";3;I*32+5
  31. 80 FORJ=1TOLEN(F$)
  32. 82 GET#3,W$:IFW$<>MID$(F$,J,1)THENK=0:GOTO86
  33. 84 K=K+1
  34. 86 NEXTJ
  35. 88 IFK=LEN(F$)THEN92
  36. 90 NEXTI:GOSUB112:GOTO72
  37. 92 PRINT"AUTOSTART (J/N)";FT$
  38. 94 GETFT$
  39. 96 IFFT$="J"THENFT=14:GOTO102
  40. 98 IFFT$<>"N"THEN94
  41. 100 FT=6
  42. 102 PRINT#1,"B-P";3;I*32+21
  43. 104 PRINT#3,CHR$(T)CHR$(S)CHR$(0)CHR$(FT);
  44. 106 PRINT#3,CHR$(88)CHR$(4)CHR$(8)CHR$(14)CHR$(25)CHR$(2);
  45. 108 PRINT#1,"U2";3;0;A;B
  46. 110 CLOSE1:PRINT"O.K.":END
  47. 112 INPUT#1,N,T$:IFNTHENPRINT"ERROR: ";T$:STOP
  48. 114 RETURN
  49. 118 DATA162,181,160,16,134,2,132,3,32,137,16,208,56,162,187
  50. 120 DATA160,16,134,2,132,3,32,137,16,240,108,173,254,255,56
  51. 122 DATA233,6,133,2,173,255,255,233,0,133,3,160,5,185,181
  52. 124 DATA16,145,2,136,16,248,120,160,11,177,2,141,254,255,200
  53. 126 DATA177,2,141,255,255,88,24,144,65,174,254,255,172,255
  54. 128 DATA255,142,198,16,140,199,16,120,165,4,24,105,6,141,254
  55. 130 DATA255,165,5,105,0,141,255,255,162,187,160,16,134,2,132
  56. 132 DATA3,162,239,160,0,134,6,132,7,32,126,193,88,162,167
  57. 134 DATA160,16,134,14,132,15,169,0,133,2,133,22,32,8,194,76
  58. 136 DATA44,194,162,255,160,143,134,4,132,5,230,4,208,4,230
  59. 138 DATA5,240,13,169,6,162,2,160,4,32,110,194,208,237,169
  60. 140 DATA255,96,80,114,101,102,46,32,77,97,110,97,103,101,114
  61. 142 DATA0,72,165,34,162,255,56,67,76,79,67,75,32,198,255,240
  62. 144 DATA3,76,0,0,72,138,72,152,72,162,0,181,1,72,232,224,13
  63. 146 DATA208,248,169,53,133,1,169,58,133,8,133,11,173,11,220
  64. 148 DATA41,31,201,18,208,2,169,0,44,11,220,16,5,248,24,105
  65. 150 DATA18,216,170,173,254,255,24,105,72,168,173,255,255,105
  66. 152 DATA0,72,152,72,138,24,144,23,134,6,133,7,173,254,255
  67. 154 DATA24,105,99,168,173,255,255,105,0,72,152,72,173,10,220
  68. 156 DATA24,144,117,144,160,134,9,133,10,173,254,255,24,105
  69. 158 DATA124,168,173,255,255,105,0,72,152,72,173,9,220,24,144
  70. 160 DATA90,134,12,133,13,173,8,220,169,49,133,1,162,56,160
  71. 162 DATA161,134,4,132,5,162,7,169,0,133,3,181,6,10,38,3,10
  72. 164 DATA38,3,10,38,3,133,2,169,208,24,101,3,133,3,160,7,177
  73. 166 DATA2,145,4,136,16,249,165,4,56,233,8,133,4,165,5,233
  74. 168 DATA0,133,5,202,16,207,162,12,104,149,1,202,16,250,169
  75. 170 DATA16,133,255,104,168,104,170,104,24,144,139,72,41,240
  76. 172 DATA74,74,74,74,24,105,48,170,104,41,15,24,105,48,96
  77. 180 DATA0,255,3,21,191,255,255,255,128,0,1,128,0,1,128,0,1
  78. 182 DATA128,0,1,131,255,253,133,85,85,138,170,169,159,255
  79. 184 DATA245,160,0,21,169,134,85,170,65,85,170,81,85,170,70
  80. 186 DATA85,170,84,85,169,134,85,160,0,25,159,255,241,128,0
  81. 188 DATA1,128,0,1,255,255,255,131,5,0,0,16,170,17,0,16,195
  82. 190 DATA76,79,67,75,32,32,32,32,32,32,32,86,49,46,51,0,0,0
  83. 192 DATA0,210,85,69,68,73,71,69,82,32,203,69,82,75,76,79,72
  84.